0 PRINT"[147]":REM 1 POKE53280,0:POKE53281,0:PRINT"":POKE53272,24:FORI=1TO1500:NEXT 2 POKE 53272,22 4 REM NEUSEELAND KIWI GMBH V.3 5 REM DONT LIST 6 PRINTCHR$(142):POKE53280,0:PRINT"[147]" 8 DIM A$(5):GOSUB10000:GOSUB1100 9 B=15:V=1:BN=0:I=6:R=115:QW=3:EQ=2:RQ=3 10 POKE53280,0:POKE53281,0:PRINTCHR$(147):PRINT"[147]":PRINTCHR$(142) 11 PRINTCHR$(147):POKE53280,0:A=A/100:A=A*100 12 PRINT" [207][183][183][183][183][183][208] [207][183][183][183][183][183][208] 13 [153]" SGN(null)USRUSRUSR(null)+ SGN (null)(null)(null) + 14 PRINT" [180][204] [172] [186][170][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][180] [209][215][209] [170] 15 [153]" FN USRUSRUSR + NEUSEELAND KIWI SGN + 16 PRINT" [183][183][207][183][183][183][183] [183][183][183][183][208][183][183] 17 [153]" SGN 1-LAND....2-ARBEITER.. + 18 PRINT" [180] [170] 19 [153]" SGN 3-KIWI....4-BEPFLANZEN + 20 PRINT" [180] [170] 21 [153]" SGN 5-WEITER + 22 PRINT" [180] [170] 23 [153]" USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR":[153] 24 [153]" GELDSYS "A" $ 25 PRINT" LAND [154]"C" QKM 26 [153]" BEPFLANZT  "V" QKM 27 PRINT" ARBEITER "B"" 28 REM (null) 29 GOTO9000 30 PRINT"[147]":POKE53280,0 31 IF BN>0 THEN 120 32 IF RQ<0 THEN RQ=1 35 PRINT" [207][183][183][183][183][183][208] [207][183][183][183][183][183][208] 36 [153]" SGN(null)USRUSRUSR(null)+ SGN (null)(null)(null) + 37 PRINT" [180][204] [172] [186][170][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][180] [209][215][209] [170] 38 [153]" FN USRUSRUSR + NEUSEELAND KIWI SGN + 39 PRINT" [183][183][207][183][183][183][183] [183][183][183][183][208][183][183] 40 [153]" SGN 1-LAND KAUFEN + 41 PRINT" [180] [170] 42 [153]" SGN 2-LAND VERKAUFEN + 43 PRINT" [180] [170] 44 [153]" SGN 3-ZURUECK + 45 PRINT" [180] [170] 46 [153]" USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR 47 PRINT" GELD "A" $ " 48 PRINT" LAND "C" QKM" 50 GET C$:IFC$="" THEN 50 53 ON VAL (C$) GOTO 57,70,11 54 GOSUB 50 57 D=INT(100*RND(1))+1 60 PRINTSPC(3)" WIEVIEL LAND KAUFEN (1QKM="D"$)" 61 INPUT" ---> ";M 62 Q=M*D:A=A-Q:C=C+M 63 IF A>0 AND A<1000 THEN80 64 FORI=1TO500:NEXT 65 IF I>0 THEN 30 70 D=INT(100*RND(1))+1 71 PRINTSPC(3)" WIEVIEL LAND VERKAUFEN (1QKM="D"$)" 72 INPUT" ---> ";O 73 IF O>C THEN 30 74 Y=O*D:A=A+Y:C=C-O:V=V-O 75 IF A>O AND A<1000 THEN 80 76 FORI=1TO500:NEXT 77 IF V<0 THEN V=0 78 IF I>0 THEN 30 80 PRINTCHR$(147) 83 PRINT" [206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205] 85 [153]" (null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)+" 87 [153]" SGN --- KREDIT --- ++" 89 [153]" SGN ++" 91 [153]" (null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR(null) 92 PRINTSPC(3)" GELD "A" $" 93 PRINTSPC(3)" WILLST DU EINEN KREDIT AUFNEHMEN ?" 94 INPUT" ---> (J/N) ";X$ 95 IF X$="N" ORX$="NEIN" THEN 11 96 IF X$="J" ORX$="JA" THEN 100 97 GOSUB 80 100 W=A*10 101 PRINTSPC(3)" DEINE BANK GEWAEHRT DIR EINEN" 102 PRINTSPC(3)" KREDIT VON "W" $" 105 A=A+W:BN=BN+1 110 FORI=1TO2000:NEXT 111 IF I>0 THEN 11 120 POKE53280,2:PRINT"[147]" 121 VB=VB+1 122 IF VB>3 THEN 160 130 PRINT" [206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205] 131 [153]" (null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)+" 132 [153]" SGN --- KREDIT --- ++" 133 [153]" SGN ++" 134 [153]" (null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR(null) 135 PRINTSPC(3)" [154]DIE "VB" RATE WIRD FAELLIG !!!" 136 AD=W/5 137 PRINTSPC(3)" SIE HAT DIE HOEHE VON "AD" $" 138 IF AD>A THEN 145 139 A=A-AD 141 IF I>0 THEN 153 142 REM ICH SAGTE DOCH NICHT LISTEN ! 143 REM (null) 150 PRINTSPC(3)" DA DU NICHT GENUNG GELD HAST" 151 PRINTSPC(3)" PFAENDET DIE BANK TEILE DEINES":C=2:PRINTSPC(3)" LANDES" 153 PRINTSPC(25)"[144]-TASTE-" 154 GETE$:IFE$="" THEN 154 155 IF I>0 THEN 11 160 PRINT"[147]":POKE53280,6 161 PRINT" [206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205] 162 [153]" (null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)+" 163 [153]" SGN NEUSEELAND KIWI GMBH ++" 164 [153]" SGN ++" 165 [153]" (null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR(null) 166 PRINTSPC(3)" GUTE NACHRICHT :" 167 PRINTSPC(3)" DU HAST DEINEN KREDIT DER BANK" 168 PRINTSPC(5)" ZURUECK GEZAHLT !" 169 A=A+1000:PRINTSPC(3)" GELD "A" $" 170 PRINTSPC(25)"[144]-TASTE-" 171 GET E$:IFE$="" THEN 171 172 IF I>0 THEN 11 200 PRINTCHR$(147)"":POKE53280,0 201 IF B>100THEN 2000 205 A=A/100:A=A*100 210 PRINT" [207][183][183][183][183][183][208] [207][183][183][183][183][183][208] 211 [153]" SGN(null)USRUSRUSR(null)+ SGN (null)(null)(null) + 212 PRINT" [180][204] [172] [186][170][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][180] [209][215][209] [170] 213 [153]" FN USRUSRUSR + NEUSEELAND KIWI SGN + 214 PRINT" [183][183][207][183][183][183][183] [183][183][183][183][208][183][183] 215 [153]" SGN 1-ARBEITER EINSTELLEN + 216 PRINT" [180] [170] 217 [153]" SGN 2-ARBEITER ENTLASSEN + 218 PRINT" [180] [170] 219 [153]" SGN 3-ZURUECK +":[137]8000 220 [161] V$:[139]V$[178]"" [167] 220 221 [145] [197] (V$) [137] 225,240,11 222 [141] 220 225 [153][166]3)" WIEVIELE ARBEITER EINSTELLEN ?":RF[178][181](50[172][187](1))[170]1 226 [133]" ---> ";N 227 W[178]N[172]RF:A[178]A[171]W 230 B[178]B[170]N 231 [153][166]30)"-TASTE-" 232 [161] A$:[139]A$[178]"" [167] 232 233 [139] I[177]0 [167] 200 240 [153][166]3)" WIEVIELE ARBEITER ENTLASSEN ?" 241 [133]" ---> ";DF 242 [139] DF[177]B [167] 200 243 [139] DF[177]20 [167] 250 244 B[178]B[171]DF 245 [153][166]30)"-TASTE-" 246 [161] Q$:[139]Q$[178]"" [167] 246 248 [139] I[177]0 [167] 200 250 [153][166]3)" DIE GEWERKSCHAFT IST DAMIT " 251 [153][166]3)" NICHT EINVERSTANDEN !" 252 [139] I[177]0 [167] 245 300 [153][199](147)"":[151]53280,0 301 [153]" (null)USRUSRUSRUSRUSR(null) (null)USRUSRUSRUSRUSR(null) 302 PRINT" [180][206][183][183][183][205][170] [180] [215][209][215] [170] 303 [153]" SGN(null) * SQR+USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRSGN (null)(null)(null) + 304 PRINT" [165] [183][183][183] [170] NEUSEELAND KIWI [180] [170] 305 [153]" USRUSR(null)USRUSRUSRUSR USRUSRUSRUSR(null)USRUSR 306 PRINT" [180] 1-KIWI PFLANZEN KAUFEN [170] 307 [153]" SGN + 308 PRINT" [180] 2-KIWI PFLANZEN VERKAUFEN [170] 309 [153]" SGN + 310 PRINT" [180] 3-ZURUECK [170] 312 [153]" SGN + 313 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183] 314 [153]" GELD "A"" 315 [153]" KIWI PFLANZEN "R" 316 PRINT" LAND "C" QKM" 320 GET M$:IFM$="" THEN 320 321 ON VAL(M$) GOTO 330,350,11 322 GOSUB 320 330 PRINTSPC(3)" WIEVIEL PFLANZEN KAUFEN ?" 331 PRINTSPC(3)" STUECK 2 $" 333 INPUT "--> ";LO 334 R=R+LO 335 WE=LO*2 336 A=A-WE 337 PRINTSPC(30)"-TASTE-" 340 GET A$:IFA$="" THEN 340 341 IF I>0 THEN 300 350 PRINTSPC(3)" WIEVIEL PFLANZEN VERKAUFEN" 351 PRINTSPC(3)" STUECK 1 $" 352 INPUT"--> ";GH 353 IF GH>R THEN 300 354 PRINTSPC(30)"-TASTE- 355 [161] S$:[139]S$[178]"" [167] 355 358 [139] I[177]0 [167] 300 400 [153][199](147)"":[151] 53280,0 401 [153]" (null)USRUSRUSRUSRUSR(null) (null)USRUSRUSRUSRUSR(null) 402 PRINT" [180][206][183][183][183][205][170] [180] [215][209][215] [170] 403 [153]" SGN(null) * SQR+USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRSGN (null)(null)(null) + 404 PRINT" [165] [183][183][183] [170] NEUSEELAND KIWI [180] [170] 405 [153]" USRUSR(null)USRUSRUSRUSR USRUSRUSRUSR(null)USRUSR 406 PRINT" [180] 1-BEPFLANZEN [170] 407 [153]" SGN + 408 PRINT" [180] 2-ENTPFLANZEN [170] 409 [153]" SGN + 410 PRINT" [180] 3-ZURUECK [170] 411 [153]" SGN + 412 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183] 414 [153]" BEPFLANZT "V" QKM 415 PRINT" KIWI PFLANZEN "R" " 416 PRINT" LAND "C" QKM":GOTO9800 417 PRINTSPC(3)" WIEVIEL QKM BEPFLANZEN ?" 418 INPUT" ---> ";TR 419 IF TR>C THEN 400 420 V=V+TR 421 IF V>C THEN V=C 425 GOTO 400 426 GET A$:IFA$="" THEN 426 427 IF I>0 THEN 11 500 PRINTCHR$(147):POKE53281,6:POKE53280,0:PRINTCHR$(14):WF=B*V:WF=WF*R:A=A+WF 501 PRINT"[147]" 502 PRINTSPC(3)" [196]EIN [213]MSATZ WAR "WF" $":IF A<0 THEN 506 503 PRINTSPC(3)" [215]IEVIEL [204]OEHNE FUER DEINE ARBEITER":INPUT" ---> ";SD 504 IF SD>A THEN 501 : PRINTSPC(3)" OK "SD" [204]OEHNE " 505 A=A-SD :ED =V*150:A=A-SD:A=A-ED 506 PRINTSPC(3)" [193]USERDEM HAST DU "ED" $" 507 PRINTSPC(3)" AN DIE [211]TEUER GEZAHLT ." 508 PRINTSPC(3)" [197]S BLEIBEN DIR "A" $" 509 IF A>100000THEN 520 510 PRINT 511 IF ZQ>0 THENPRINTSPC(3)" [196]EINE [194]OHRINSEL MACHT 1 MIO [199]EWINN":A=A+1000000 514 PRINTSPC(30)"-[212][193][211][212][197]-":A=A/100:A=A*100 515 GET R$:IFR$="" THEN 515 516 IF I>0 THEN 549 520 PRINTSPC(3)" [197]IN GUTES [202]AHR !" 521 IF I>0 THEN 511 549 GOTO 20000 550 PRINT"[147]":POKE53280,0:POKE53281,0:PRINTCHR$(142):PRINT"[147] 551 [139] QW[179]0 [167] QW[178]0 552 [139] EQ[179]0 [167] EQ[178]0 553 [139] RQ[179]0 [167] RQ[178]0 555 [153]" (null)USRUSRUSRUSRUSR(null) (null)USRUSRUSRUSRUSR(null) 556 PRINT" [180][206][183][183][183][205][170] [180] [205][175][206] [170] 557 [153]" SGN(null) * SQR+USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRSGN (null)USR(null) + 558 PRINT" [165] [183][183][183] [170] NEUSEELAND KIWI [180] [170] 559 [153]" USRUSR(null)USRUSRUSRUSR USRUSRUSRUSR(null)USRUSR 560 PRINT" [180] HANDEL [170] 565 [153]" SGN + 570 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183] 571 [153][166]3)" [ 1 ] WERBUNG " 572 [153][166]3)" [ 2 ] LAGERHALLEN (100000)" 573 [153][166]3)" [ 3 ] FAHRZEUGE (5000)" 574 [153][166]3)" [ 4 ] ALLES VERKAUFEN ":[153][166]3)" [ 5 ] WEITER" 575 [153][166]3)" GELD "A" $ FAHRZEUGE "RQ"" 576 [153][166]3)" LAGERHALLEN "QW" 578 GET M$:IFM$="" THEN 578 579 ON VAL(M$) GOTO6000,605,610,620,680 580 GOSUB 578 600 EQ=EQ+1:A=A-10000 601 IF I>0 THEN 550 605 QW=QW+1:A=A-100000 606 IF I>0 THEN 550 610 RQ=RQ+1:A=A-5000 611 IF I>0 THEN 550 620 PRINT"[147]":PRINTSPC(3)" GANZ SICHER (J/N) ?" 621 INPUT " ---> ";G$ 622 IF G$="J" ORG$="JA" THEN 630 623 IF I>0 THEN 550 630 PRINTSPC(3)" OK.":FORI=1TO1000:NEXT:GOSUB 30000 631 QS=RQ*10000:A=A+QS:PRINTSPC(3)" DEIN VERMOEGEN IST "A" DOLLAR" 632 PRINTSPC(30)"-TASTE-" 633 GET H$:IFH$="" THEN 633 634 PRINTSPC(3)" TSCHUESS ... " 635 SYS 64738 680 A$(1)=" 1 LAGERHALLE IST ABGEBRANNT !" 682 A$(2)=" 1 SCHEUNE IST ABGEBRANNT" 684 A$(3)=" 1 FAHRZEUG IST VERUNGLUECKT" 685 A$(4)=" DU GEWINNST 1 MIO IM LOTTO" 686 A$(5)=" DU ERBST 10000 $" 693 K=INT(5*RND(1))+1 695 PRINT"[147]":POKE53280,0 696 PRINT" [206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205] 697 [153]" (null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)+" 698 [153]" SGN GMBH ++ 699 PRINT" [180] PETER DIEHM [170][170]" 700 PRINT" [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][206]":PRINT"":I=1 701 IF K=1 THEN PRINTSPC(3) A$(1):QW=QW-1 702 IF K=2 THEN PRINTSPC(3) A$(2):EQ=EQ-1 703 IF K=3 THEN PRINTSPC(3) A$(3):RQ=RQ-1 704 IF K=4 THEN PRINTSPC(3) A$(4):A=A+1000000 705 IF K=5 THEN PRINTSPC(3) A$(5):A=A+10000 707 IF A>1000000THEN 710 708 IF I>0 THEN 720 710 OQ=OQ+1 711 IF OQ>1 THEN 720 712 PRINTSPC(3)" DU WIRST ZUM BUERGERMEISTER" 713 PRINTSPC(3)" GEWAEHLT !!!" 714 PRINTSPC(3)" DU SPENDEST 5000 $ AN DIE" 715 PRINTSPC(3)" OERTLICHE SCHULE !" 716 A=A-5000 720 PRINTSPC(30)"-TASTE-" 721 GET H$:IFH$="" THEN 721 722 POKE 53280,0 723 IF I>0 THEN 800 725 GQ=GQ+1 726 IF GQ=>2THEN 800 727 PRINT"[147]":PRINTSPC(3)" DEINE PARTEI WAEHLT" 728 PRINTSPC(3)" DICH IN DEN LANDTAG. 729 [153][166]3)" DU BEKOMMST AUS DER PARTEIKASSE" 730 [153][166]3)" 50000 $ !":A[178]A[170]50000 731 [139] I[177]0 [167] 820 732 KQ[178]KQ[170]1 733 [139] KQ[178][179]3[167] 11 734 [153]"LOAD":[153][166]3)" DEINE WERKSFUSSBALL MANNSCHAFT" 735 [153][166]3)" GEWINNT DEN NEUSEELAND CUP !" 736 [153][166]3)" DU VERANSTALLTEST EIN FEST FUER" 737 [153][166]3)" ALLE FANS !":[153][166]3)" KOSTEN 114674 $":A[178]A[171]114674:KQ[178]1 738 [139] I[177]0 [167] 820 740 GQ[178]GQ[170]1 741 [139] GQ[178][179]3[167] 11 742 [153]"LOAD":[153][166]3)" DEINE PARTEI WAEHLT DICH" 743 [153][166]3)" IN DAS PARLAMENT !" 744 [153][166]3)" DU BEKOMMST 40000 $":A[178]A[170]40000:GQ[178]0 745 [139] I[177]0 [167] 820 750 [153] 751 [139] PQ[177]10[167] 753 752 [139] I[177]0 [167] 801 753 SQ[178][181](2[172][187](1))[170]1 754 [139] SQ[178]2 [167] 11 760 [153]"LOAD":[153][166]3)" TRAURIGE NACHRICHT DER" 761 [153][166]3)" BESITZER DER KIWI GMBH IST" 762 [153][166]3)" GESTORBEN !" 763 [153][166]25)"STOP-TASTE-" 764 [161] V$:[139]V$[178]"" [167] 764 765 [153][166]3)" TSCHUESS !":[129]I[178]1[164]2000:[130]:[151]53272,24:[128] 800 [139] I[177]0 [167] 750 801 [153][199](147):[151] 53280,0:PQ[178]PQ[170]1 802 [139] A[177]5000000 [167] 990 803 [145] PQ [137] 740,732,725,725,740,725 820 [153][166]3)" GELD "A" DOLLAR" 821 [153][166]25)"STOP-TASTE-" 823 [161] X$:[139]X$[178]"" [167] 823 831 [139] I[177]0 [167] 11 855 [151]53280,0:[153][199](5):[153]" " 857 [151]53281,0:[151]53280,0 860 [153][166]4)" (null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null) 861 PRINTSPC(4)" [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][170]" 862 PRINTSPC(4)" [180] [170][170]" 865 PRINTSPC(4)" [180] [170][170]" 866 PRINTSPC(4)" [180] [170][170]" 867 PRINTSPC(4)" [180] [170][170]" 868 PRINTSPC(4)" [180] [170][170]" 869 PRINTSPC(4)" [180] [170][170]" 870 PRINTSPC(4)" [180] ------------------------- [170][170]" 871 PRINTSPC(4)" [180] [170][170]" 872 PRINTSPC(4)" [180] [170][170]" 875 PRINTSPC(4)" [180] [144]V.2 9/90 [170][170] 890 [153][166]4)" (null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR(null) 891 FORI=1TO1000:NEXT:RETURN 892 PRINT"[147]"CHR$(14) 893 PRINTSPC(3)" [196]URCH EINEN [194]RAND LIEGT DEINE" 894 PRINTSPC(3)" [208]LANTAGE IN [211]CHUTT UND [193]SCHE. 895 [153][166]3)" STR$U VERSUCHST SIE NUN WIEDER" 896 [153][166]3)" AUFZUBAUEN. (null)AS GARNICHT SO EIN- 899 PRINTSPC(3)" FACH IST WIE MAN DENKT ! 900 [153][166]3)" ABER DU KANNST ES SCHAFFEN. 901 PRINTSPC(3)" [214]IEL [211][208][193][211][211] [186]":PRINT 902 PRINT"":PRINTSPC(30)"-TASTE-" 903 GET D$:IFD$="" THEN 903 905 RETURN 990 CQ=CQ+1 991 IF CQ=2 THEN 1000 992 IF CQ=4 THEN 1019 993 IF CQ=6 THEN 1040 994 IF I>0 THEN 11 1000 PRINT"[147]" 1001 PRINTSPC(3)" DU WIRST ZUM PRAESIDENTEN DES" 1002 PRINTSPC(3)" MILLIONAERS CLUB GEWAEHLT." 1003 PRINTSPC(25)"[144]-TASTE-" 1004 GET R$:IFR$="" THEN 1004 1005 IF I>0 THEN 11 1019 PRINT"[147]" 1020 PRINTSPC(3)" DU HEIRATEST EINE ADLIGE UND" 1021 PRINTSPC(3)" BEKOMMST DEN TITEL GRAF EDDIE 1022 [153][166]30"-TASTE-" 1025 [161] C$:[139]C$[178]"" [167] 1025 1026 [139] I[177]0 [167] 11 1040 [153]"LOAD" 1041 [153][166]3)" DU KAUFST DIR EINE OEL " 1042 [153][166]3)" BOHRINSEL FUER 3 MIO." 1043 A[178]A[171]3000000 1044 ZQ[178]ZQ[170]1 1045 [153][166]30)"-TASTE-" 1046 [161] F$:[139]F$[178]"" [167] 1046 1047 [139] I[177]0 [167] 11 1100 [153]"LOAD":[153][199](14):[151]53280,0:[153][166]3)" STR$EIN ASCAMILIENNAME ?" 1101 [153][166]3)"---------------------" 1102 [133]" ---> ";G$ 1103 [139] [195](G$)[178][179]0 [176] [195] (G$) [177]10 [167] 1100 1104 [153][166]3)" (null)IEL (null)PASS (null)IPPE "G$" !" 1105 [129]I[178]1[164]2000:[130] 1107 [139] I[177]0 [167] 3000 1108 [143] PETER DIEHM 1109 [143] WALDSTR.58 1110 [143] 6149 RIMBACH 1 1111 [143] -------------- 2000 [153][199](147):[151]53280,14:[151]53280,0:[153][199](5):[153]"LOAD" 2100 [153]" (null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null) 2110 PRINT" [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][170]" 2111 PRINT" [180] --- GEWERKSCHAFT --- [170][170]" 2222 PRINT" [180] [170][170]" 2225 PRINT" [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][206] 2230 [139] B[177]120[167] 2250 2231 [153][166]3)" FUER BESSERERE ARBEITSPLAETZE":MK[178]RQ[172]10000:MK[178]MK[170]10000 2232 [153][166]3)" GIBST DU "MK" $ AUS" 2233 A[178]A[171]MK 2245 [139] I[177]0 [167] 2500 2250 [153][166]3)" DEINE ARBEITER STREIKEN !!!":[129]I[178]1[164]3000:[130] 2251 MJ[178]QW[172]20000:MJ[178]MJ[170]20000 2253 A[178]A[171]MJ:B[178]80 2259 [153][166]3)" DU MACHST "MJ" $ VERLUST !" 2500 [153][166]30)"-TASTE-" 2600 [161] L$:[139]L$[178]"" [167] 2600 2610 [137]200 3000 [153][199](147):[151]53280,0 3001 [153][199](14)" (null)CHWIERIGKEITSGRAD SQR" 3002 [153]" 1--> (null)ICHTSKOENNER..... 3003 PRINT"[158] 2--> [193]MATEUR........... 3004 [153]"CONT 3--> (null)ROFI............. 3005 PRINT" 4--> [199]ENIE............. 3006 [133]" --->CLR (null)AEHLE ";CB 3008 [139] CB[178]1 [167] A[178]15000:C[178]30 3010 [139] CB[178]2 [167] A[178]10000:C[178]10 3012 [139] CB[178]3 [167] A[178]5000:C[178]5 3014 [139] CB[178]4 [167] A[178]100:C[178]2 3020 [139] CB[177]4 [167] 3000 3030 [153][166]30)"-TASTE-" 3050 [161] H$:[139]H$[178]"" [167] 3050 3060 [151]53280,0:[142] 3070 [143] 20.9.1990 6000 [143] WERBUNG 6001 [153]"LOAD" 6010 [153]" (null)USRUSRUSRUSRUSR(null) (null)USRUSRUSRUSRUSR(null) 6020 PRINT" [180][206][183][183][183][205][170] [180] [205][175][206] [170] 6030 [153]" SGN(null) * SQR+USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRSGN (null)USR(null) + 6034 PRINT" [165] [183][183][183] [170] NEUSEELAND KIWI [180] [170] 6035 [153]" USRUSR(null)USRUSRUSRUSR USRUSRUSRUSR(null)USRUSR 6040 PRINT" [180] WERBUNG [170] 6043 [153]" SGN + 6044 PRINT" [180] 1-ZEITUNGSWERBUNG (1000) [170] 6045 [153]" SGN + 6046 PRINT" [180] 2-FERNSEHWERBUNG (20000) [170] 6047 [153]" SGN + 6050 PRINT" [180] 3-ZURUECK [170] 6055 [153]" SGN + 6056 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183] 6059 [153]" GELD "A" $" 6060 [143] [204] 6100 [161] D$:[139]D$[178]"" [167] 6100 6111 [145] [197](D$) [137] 6130,6140,550 6115 [137] 6100 6130 A[178]A[171]1000:B[178]B[170]2:R[178]R[170]15 6134 [139] I[177]0 [167] 6000 6140 A[178]A[171]20000:B[178]B[170]10:R[178]R[170]50 6145 [139] I[177]0 [167] 6000 8000 [153]" SGN + 8001 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]" 8010 PRINT" GELD "A" $" 8011 PRINT" ARBEITER "B" ":GOTO220 9000 GETH$:IFH$="" THEN 9000 9001 ONVAL(H$) GOTO9100,200,300,400,500 9010 GOTO9000 9100 IFA<-10000 THEN1000 9101 IFEQ <0 THEN EQ=1 9105 IFQW <0 THENWQ=1 9200 GOTO 30 9800 GET D$:IFD$="" THEN 9800 9802 ON VAL(D$) GOTO 417,9810,10 9805 GOTO 9800 9810 PRINTSPC(3)" WIEVIEL QKM ";:INPUT HM 9811 IF HM>V THEN 400 9812 IF V<0 THEN V=0 9813 V=V-HM 9815 GOTO 400 10000 REM ANFANG 10001 GOSUB 855 10010 POKE 782,24:POKE781,10:SYS 65520:PRINT 10012 PRINTSPC(13)" PETER DIEHM 10015 [129]I[178]1[164]1000:[130] 10016 [151] 782,24:[151] 781,10:[158]65520:[153] 10020 [153][166]13)" PRESENTS " 10024 [129]I[178]1[164]1000:[130] 10030 [151]782,24:[151]781,10:[158]65520:[153] 10040 [153][166]8 )" NEUSEELAND KIWI GMBH II":[129]I[178]1[164]2000:[130] 10042 [153]"" 10043 [153][166]9)" (C) BY PETER DIEHM 90 " 10050 [129]I[178]1[164]2000:[130]:[137]892 20000 [153]"LOAD"[199](142) 20010 [153][166]5)" MORAL :" 20012 [139] A[177]100000 [167]21000 20015 [139] A[179]100000 [167] 20100 20100 [143] 20120 [153][166]5)" (null)ANDANDANDANDANDRIGHT$ 20123 PRINTSPC(5)" [194] [194] 20125 [153][166]5)" PEEK (null) (null) PEEK 20130 PRINTSPC(5)" [205] [206] 20140 [153][166]5)" SGN + 20150 PRINTSPC(5)" [180][213][210][201][170] 20154 [153][166]5)" (null)ANDANDAND(null) 20156 PRINTSPC(30)"-TASTE-" 20200 GET C$:IFC$="" THEN20200 20211 GOTO 550 21000 REM 21120 PRINTSPC(5)" [213][175][175][175][175][175][201] 21123 [153][166]5)" PEEK PEEK 21125 PRINTSPC(5)" [194] [215] [215] [194] 21130 [153][166]5)" (null) (null) 21140 PRINTSPC(5)" [180] [170] 21150 [153][166]5)" SGNMID$(null)(null)+ 21154 PRINTSPC(5)" [205][175][175][175][206] 21156 [153][166]30)"-TASTE- 21200 GET C$:IFC$="" THEN20200 21211 GOTO 550 30000 REM TJA 30010 PRINT"[147]"CHR$(14) 30012 PRINTSPC(5)" [196]A [206]EUSEELAND [203]IWI [199]MB[200] [201] 30015 [153][166]5)" EINIGE ASCEHLER HATTE DIE WIR 30020 PRINTSPC(5)" ERST SPAETER ERKANNT HABEN 30030 [153][166]5)" (null)CHUFFEN WIR (null)IWI RIGHT$RIGHT$ " 30034 [153][166]5)" LEFT$OCHACHTUNGSVOLL " 30040 [153][166]5)" (null).STR$IEHM & ATN.(null)EITNER 30045 PRINTSPC(30)"-[212][193][211][212][197]-" 30050 GET F$:IFF$="" THEN 30050 30055 PRINT"[147]":PRINTCHR$(142) 30057 RETURN 30060 REM JETZT IST SCHLUSS 30065 REM JETZT KOMMEN DIE WICHTIGENDATEN 30067 REM (null)